home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
bbs
/
torin.zip
/
jcastle.ref
< prev
next >
Wrap
Text File
|
1997-06-25
|
7KB
|
405 lines
@#merlin
@offmap
@do moveback
@show
`r0`c `r1 Merlin `r0
`0"Hello sir. Where do you wish to go today?" `2Asks Merlin.
@do `v01 is 1
@do write
`x`x
@choice
GreenTree
PortTown
BoneTown
FlagCity
Sosen Village
ArrisVille
Nevermind
@if response not 7 then do
@begin
@show
`\`\ `0"Okay sir, here we go, I'll just grab my spell book."
`k `2"`#Nethin dwargin nargin flargin!`2" Shouts Merlin.
`2Then suddenly, you are there, on your own.
`\`k
@if response is 1 then do
@begin
@do x is 10
@do y is 15
@do map is 1356
@end
@if response is 2 then do
@begin
@do x is 38
@do y is 16
@do map is 956
@end
@if response is 3 then do
@begin
@do x is 53
@do y is 18
@do map is 1572
@end
@if response is 4 then do
@begin
@do x is 71
@do y is 19
@do map is 1092
@end
@if response is 5 then do
@begin
@do x is 36
@do y is 5
@do map is 456
@end
@if response is 6 then do
@begin
@do x is 19
@do y is 9
@do map is 523
@end
@loadmap &map
@end
@drawmap
@update
@#heal
@offmap
@do moveback
@show
`r0`c `r1 Healer `r0
`2The doctor carefully looks over your wounds.
`%YOU ARE COMPLETELY HEALED.
`\`k
@do `p02 is `p03
@drawmap
@update
@#doorguard
@do moveback
@label startg
@if jcastle.dat exist false then do
@begin
@do saybar
`0"You must leave this castle now!" `2the guard yells.
@closescript
@end
@readfile jcastle.dat
`p20
`s01
@
@if `p20 not &playernum then do
@begin
@do saybar
The doorguard salutes you as you pass.
@closescript
@end
@busy
@do `v01 is 1 ;set default choice to 1
@show
`r0`c `r1 Instructing your servants `r0
`2You're doorguard stands to attention.
@do write
`x`x
@choice
Change Password (currently is `0`s01`%)
Ownership Options
Leave
@
@if responce is 2 then do
@begin
@show
`r0`c `r1 Ownership Options `r0
`2You retrieve your deed and carefully look it over.
@do `v01 is 1
@do write
`x`x
@choice
Transfer ownership
Sell property to the bank for `$25,000`%.
Nevermind
@if response is 1 then do
@begin
@show
`\`\ `2Transfer to whom?
@chooseplayer `p20
@if `p20 is 0 then do
@begin
@show
`2You decide to keep your castle.`\`\`k
@do goto startg
@end
@do `s02 is getname `p20
@show
`2 Are you sure you wish to give your castle to `0`s02`2?
@do write
`x`x
@choice
Yes
No
@if responce is 2 then do
@begin
@show
`\`\ `2You decide to keep your castle.`\`\`k
@do goto startg
@end
@do delete jcastle.dat
@writefile jcastle.dat
`p20
`s01
@writefile mail\mail`p20.dat
`0Business note:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0 `n`2 has transferred ownership of Torin Castle to you.
Password to enter will remain `0"`s01"`2 unless
`2you come by and change it.
@do addlog
`0`n`2 has given `%Torin Castle`2 to `0`s02`2!
@routine seperate in gametxt.ref
@show
`\`\ `2Ownership transfered.`\`\`k
@do goto done
@end
@if response is 2 then do
@begin
@show
`\`\`2 Are you sure you wish to sell it back to the bank?`\
@do `v01 is 1
@do write
`x`x
@choice
Yes
No
@if responce is 2 then do
@begin
@show
`\`\ `2You decide to keep your castle.`\`\`k
@do goto startg
@end
@do delete jcastle.dat
@do money + 25000
@show
`\`\ `%CASTLE SOLD!`2`\`\`k
@do addlog
`0`n`2 has sold `%Torin Castle`2 back to the bank!
@routine seperate in gametxt.ref
@do goto done
@end
@do goto startg
@end
@if responce is 1 then do
@begin
@do write
`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
@do readstring 40 `s01 `s01
@do `p20 is length `s01
@if `p20 < 2 then do
@begin
@show
`\`\ `2You decide the current password is ok.`\`\`k
@do goto startg
@end
@do delete jcastle.dat
@writefile jcastle.dat
&playernum
`s01
@show
`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
@do goto startg
@end
@drawmap
@update
@#sign
@do moveback
@if jcastle.dat exist false then do
@begin
@do saybar
Torin Castle - For sale, enquire inside.
@end
@if jcastle.dat exist true then do
@begin
@readfile jcastle.dat
`p20
`s01
@
@do `s01 is getname `p20
@do saybar
`2Property of `0`s01`2.
@end
@#enter
@do moveback
@offmap
@if jcastle.dat exist false then do
@begin
@show
`r0`c `r1 `%For Sale `r0
`2Torin Castle was once a magnificent castle that has housed many
great warriors and royalty.
`2If you choose to buy this great castle, you will recieve:
`0*`2 A magician to teleport you to many places.
`0*`2 Your very own healer that works free of charge.
`0*`2 Two doorguards for your protection
`0*`2 A room for your companions to stay.
The asking price is `$$50,000`2.
@do `v01 is 1
@do write
`x`x
@choice
>&money 49999 Purchase it.
<&money 50000 Sigh wistfully and leave since you don't have enough.
>&money 49999 Leave.
@
@if responce is 1 then do
@begin
@if jcastle.dat exist true then do
@begin
@show
`\`\ `2DAMN! Someone bought it while you where thinking about it.`\`\`k
@do goto done
@end
@writefile jcastle.dat
&playernum
NONE
@do money - 50000
@do addlog
`0`n `2buys `%Torin Castle`2!
@routine seperate in gametxt.ref
@show
`r0`c `r1 `%Why hello there, landowner! `r0
`\`2 Nice job! You now own this keep!
`2Enjoy your new home.`\`\`k
@end
@label done
@drawmap
@update
@closescript
@end
@readfile jcastle.dat
`p20
`s01
@
@do `p21 is deleted `p20
@if `p21 is 1 then do
@begin
@do delete jcastle.dat
@do addlog
`%Torin Castle`2 is put on the market today.
@routine seperate in gametxt.ref
;run script again
@do goto enter
@end
@if `p20 not &playernum then do
@begin
@do `s02 is getname `p20
@do upcase `s01
@if `s01 is NONE then do
@begin
@show
`r0`c `r1 None shall pass `r0
`2You knock on the door for some time before a reply is given.
`0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
voice calls from behind the wall.
`k
@do goto done
@end
@show
`r0`c `r1 Stand and unfold thyself `r0
`2 A head pops over the gate. `0"Halt, you! What business have you with
my lord and master, `%`s02`0?" `2the door guard asks.
@do write
`x`x
@do `v01 is 1
@choice
Offer an explanation.
Visit later.
@if response is 1 then do
@begin
@do write
`\`\ `2Say what? :`x
@do readstring 40 NIL `s03
@do upcase `s03
@do upcase `s01
@if `s03 is `s01 then do
@begin
@show
`\`\ `0"Welcome to `%Torin Castle`0,"`2 the guard smiles as he opens the gate.`\`\`k
@do goto letmein
@end
@writefile mail\mail`p20.dat
`0Torin Castle News:
`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`0 `n`2 attempted to sweet talk the guard by saying
`0"`s03"`2. `2He was `bNOT`2 allowed in.
@show
`\`\ `2The guard shows no interest.`\`\`k
@do goto done
@end
@do goto done
@end
;let him in
@label letmein
@do x is 36
@do y is 15
@do map is 1202
@loadmap 1202
@do goto done
@#done